home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
TSPA3460
/
TSUNTF.INT
< prev
next >
Wrap
Text File
|
1994-08-16
|
4KB
|
103 lines
{$B-,F-,I+,N-,V+}
{$S+}
{$R-}
{$D-}
(*
Timo Salmi UNiT F
A Turbo Pascal unit for readln with string editing, "Editable Readln"
All rights reserved 19-Aug-89
Updated 4-Sep-89, 24-Sep-89, 21-Mar-90, 14-Jun-90, 20-Sep-92
TSUNTF first appeared in release TSPAS13 of my Turbo Pascal units package.
This unit may be used and distributed freely for PRIVATE, NON-COMMERCIAL,
NON-INSTITUTIONAL purposes, provided it is not changed in any way, and
that a proper attribution is made. For ANY other usage, such as use in a
business enterprise or at a university, contact the author for the terms
of registration.
The units are under development. Comments and contacts are solicited. If
you have any questions, please do not hesitate to use electronic mail for
communication.
InterNet address: ts@uwasa.fi
The author shall not be liable to the user for any direct, indirect or
consequential loss arising from the use of, or inability to use, any unit,
program or file howsoever caused. No warranty is given that the units and
programs will work under all circumstances.
Timo Salmi
Professor of Accounting and Business Finance
Faculty of Accounting & Industrial Management; University of Vaasa
P.O. BOX 297, FIN-65101 Vaasa, Finland
*)
unit TSUNTF;
(* ======================================================================= *)
interface
(* ======================================================================= *)
uses Dos,
Crt;
(* =======================================================================
The basic three editable readln routines
======================================================================= *)
(* An enhanced readln with the possibility of editing input strings
using insert mode
The functional edit keys are
BackSpace
Del
CursorLeft
CursorRight
Home
End
Esc *)
procedure EDRDLN (prompt : string; var InputString : string);
(* This version gives the possibility of recalling a string by pressing
the CursorUp key. Insert key is also functional *)
procedure EDREADLN (prompt : string;
RecallString : string;
var InputString : string);
(* This is the most versatile of the enhanced readln. It has the same
characteristics as EDRDLN and EDREADLN, plus it detects whether the
break has been pressed. Furthermore, the maximum witdth of the screen
is given as a parameter (MaxLength) which is very useful if you
application makes windows.
*)
procedure EDREABLN (Prompt : string;
RecallString : string;
MaxLength : integer;
var InputString : string;
var BreakPressed : boolean);
(* =======================================================================
The editable readln routines versions with the pre-fill option
======================================================================= *)
(* Same as EDREADLN, but with the pre-fill option available
Important, you must always assign a value to the PrefillString
before invoking this routine. Else you will have a random default
with unexpected results *)
procedure EDRDEFLN (prompt : string;
RecallString : string;
PrefillString : string;
var InputString : string);
(* Same as EDREABLN, but with the pre-fill option available
Important, you must always assign a value to the PrefillString
before invoking this routine. Else you will have a random default
with unexpected results *)
procedure EDRDEBLN (Prompt : string;
RecallString : string;
PrefillString : string;
MaxLength : integer;
var InputString : string;
var BreakPressed : boolean);